
Imports cmplib01

Public Class frmLog

    Public Shadows Sub showdialog(ByVal game As CampaignerGameData)

        For Each log As CampaignerLogEvent In game.LogEvents
            Dim litem As New ListViewItem(log.logMessage)
            'litem.SubItems.Add(log.logMessage)
            litem.SubItems.Add(log.logSource)
            litem.SubItems.Add(log.timeStamp.ToString)
            'litem.SubItems.Add(log.AuthorityLevel.ToString)
            Me.ListView1.Items.Add(litem)
        Next

        MyBase.ShowDialog()
    End Sub

    Private Sub ListView1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Resize
        Dim w As Integer = ListView1.Width / ListView1.Columns.Count
        w -= 10

        For Each c As ColumnHeader In ListView1.Columns
            c.Width = w
        Next
    End Sub


End Class